home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1143copy.txt < prev    next >
Encoding:
Text File  |  1996-03-06  |  1.3 KB  |  37 lines
  1. if newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. title number = "1143"
  4. Company = "Blizzard Entertainment"
  5. title = "Pax Imperia 2"
  6. Price = 0
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = ""
  13. Title Description = "Control every aspect of a civilization on the verge of entering the vast frontier of space. Economics, research, espionage, exploration and diplomacy are the tools you'll use to create and maintain your galactic empire. Command any of the known species or define and create your own unique race."
  14. -------------------------------------
  15. dline = ""
  16. counter = 0
  17. repeat while dline <> title number
  18. counter = counter + 1
  19. dline = GetWord(1,   GetLine(titl,counter) )   
  20. test(dline = title number, LineInTitle = counter)
  21. end repeat 
  22. starttitle = LineInTitle
  23. num of titles shown = 6
  24. endtitle = starttitle + num of titles shown - 1
  25. titles = ""
  26. title highlight = ""
  27. repeat with counter = starttitle to endtitle
  28. nextline = GetLine(titl,counter)
  29. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  30. title highlight = Test(title number = GetWord(1, nextline), title highlight ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return, title highlight ^ Return)
  31. end repeat
  32. dpage = CurrentPageID
  33.  
  34. newtitle = FALSE
  35. end if
  36.  
  37.